(isearch-yank): Handle case when CHUNK is `x-sel'.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 28e2c1884b276a0e4ef4905eca263d5fd5fd393c..f2536570e98bc3ded93a440b37fbdcbc5690f22c 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -891,10 +891,12 @@ If no previous match was done, just beep."
 
 (defun isearch-yank (chunk)
   ;; Helper for isearch-yank-word and isearch-yank-line
-  ;; CHUNK should be word, line or kill.
+  ;; CHUNK should be word, line, kill, or x-sel.
   (let ((string (cond
                  ((eq chunk 'kill)
                   (current-kill 0))
+                 ((eq chunk 'x-sel)
+                  (x-get-selection))
                  (t
                  (save-excursion
                    (and (not isearch-forward) isearch-other-end